home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Tools & Utilities
/
Collection of Tools and Utilities.iso
/
comm
/
zcommbar.zip
/
408.T
< prev
next >
Wrap
Text File
|
1987-12-22
|
2KB
|
39 lines
begin: ena -8g;cls;lput \r
lput " ╒ 408 Directory ════════════════════╕\r\n"
lput " │ a - DC-Light Z-Node │\r\n"
lput " │ b - Buccaneer's Harbor II │\r\n"
lput " │ c - Ampro Users BBS │\r\n"
lput " │ d - Nth San Jose BBS │\r\n"
lput " │ e - TOMAN Great board!! │\r\n"
lput " │ f - PDSE │\r\n"
lput " │ g - Compushop │\r\n"
lput " │ h - Bizcomp │\r\n"
lput " │ i - Round Table │\r\n"
lput " │ j - Tropical │\r\n"
lput " │ k - Elect. Engeering │\r\n"
lput " │ l - Diversified Programming │\r\n"
lput " │ m - Wes Meier │\r\n"
lput " │ n - Don Watkins │\r\n"
lput " │ 1 - New City 0 - Redial │\r\n"
lput " ╘═══════════════════════════════════╛\r\n"
acceptl1 s1 "Letter ?"
if is1,n put "d927-1216\r"
if is1,m put "d937-0156\r"
if is1,l put "d459-6846\r"
if is1,k put "d791-7607\r"
if is1,j put "d732-1814\r"
if is1,i put "d739-1925\r"
if is1,h put "d720-9212\r"
if is1,g put "d226-4277\r"
if is1,f put "d735-7190\r"
if is1,e put "d728-5598\r"
if is1,d put "d945-8358\r"
if is1,c put "d258-8128\r"
if is1,b put "d243-2370\r"
if is1,a put "d238-9621\r"
if is1,1 break; put \rD\r;call city.pursuit.t
if is1,0 put r\r;pat 1 S?;wait;put 5\r
pat 1i LINE;pat 2 *;wait
if !1 goback begin
t